home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / text / edit / GED313u.lha / Upgrade / Install next >
Text File  |  1995-07-18  |  5KB  |  172 lines
  1. ; $VER: Upgrade 1.0
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 30)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED Release 3.0.1 or better required")
  20.                 (exit (quiet))
  21.             )
  22.         )
  23.  
  24.         (message (cat "\n"
  25.  
  26.             "GoldED Upgrade Kit 3.0.1+ -> 3.1.3          \n"
  27.             "                                            \n"
  28.             "©1995 Dietmar Eilert                        \n"
  29.             "      DIETMAR@TOMATE.TNG.OCHE.DE            \n"
  30.             "                                            \n"
  31.             "GoldED 3.0.1 (NOT 3.0.0) or better required.\n"
  32.             "                                            \n"
  33.             "This software is NOT 'freely distributable'.\n"
  34.             "Please have a look at the licence file      \n"
  35.             "before using this software. Thank you.      \n"
  36.         ))
  37.  
  38.         (set catalogs 1)
  39.  
  40.         (if (exists "golded:catalogs")
  41.  
  42.             (
  43.                 (if (exists "golded:catalogs/deutsch/golded.catalog"    (noreq)) (set catalogs (+ catalogs  2)))
  44.                 (if (exists "golded:catalogs/français/golded.catalog"   (noreq)) (set catalogs (+ catalogs  4)))
  45.                 (if (exists "golded:catalogs/svenska/golded.catalog"    (noreq)) (set catalogs (+ catalogs  8)))
  46.                 (if (exists "golded:catalogs/italiano/golded.catalog"   (noreq)) (set catalogs (+ catalogs 16)))
  47.                 (if (exists "golded:catalogs/nederlands/golded.catalog" (noreq)) (set catalogs (+ catalogs 32)))
  48.             )
  49.  
  50.             (if (exists "locale:" (noreq)) (
  51.  
  52.                 (if (exists "locale:catalogs/deutsch/golded.catalog"    (noreq)) (set catalogs (+ catalogs  2)))
  53.                 (if (exists "locale:catalogs/français/golded.catalog"   (noreq)) (set catalogs (+ catalogs  4)))
  54.                 (if (exists "locale:catalogs/svenska/golded.catalog"    (noreq)) (set catalogs (+ catalogs  8)))
  55.                 (if (exists "locale:catalogs/italiano/golded.catalog"   (noreq)) (set catalogs (+ catalogs 16)))
  56.                 (if (exists "locale:catalogs/nederlands/golded.catalog" (noreq)) (set catalogs (+ catalogs 32)))
  57.             ))
  58.         )
  59.  
  60.         (if (exists "locale:" (noreq)) (
  61.  
  62.             (delete "locale:catalogs/deutsch/GoldED.catalog")
  63.             (delete "locale:catalogs/français/GoldED.catalog")
  64.             (delete "locale:catalogs/italiano/GoldED.catalog")
  65.             (delete "locale:catalogs/nederlands/GoldED.catalog")
  66.             (delete "locale:catalogs/svenska/GoldED.catalog")
  67.         ))
  68.  
  69.         (copyfiles
  70.  
  71.             (source  "golded" )
  72.             (dest    "golded:")
  73.             (infos)
  74.             (all)
  75.         )
  76.  
  77.         (if (not (exists "golded:catalogs"))
  78.             (makedir "golded:catalogs")
  79.         )
  80.  
  81.         (if (IN catalogs 1)
  82.  
  83.             (copyfiles
  84.  
  85.                 (source "catalogs/deutsch")
  86.                 (dest   "golded:catalogs/deutsch" )
  87.                 (all)
  88.             )
  89.         )
  90.  
  91.         (if (IN catalogs 2)
  92.  
  93.             (copyfiles
  94.  
  95.                 (source "catalogs/français")
  96.                 (dest   "golded:catalogs/français" )
  97.                 (all)
  98.             )
  99.         )
  100.  
  101.         (if (IN catalogs 3)
  102.  
  103.             (copyfiles
  104.  
  105.                 (source "catalogs/svenska")
  106.                 (dest   "golded:catalogs/svenska" )
  107.                 (all)
  108.             )
  109.         )
  110.  
  111.         (if (IN catalogs 4)
  112.  
  113.             (copyfiles
  114.  
  115.                 (source "catalogs/italiano")
  116.                 (dest   "golded:catalogs/italiano" )
  117.                 (all)
  118.             )
  119.         )
  120.  
  121.         (if (IN catalogs 5)
  122.  
  123.             (copyfiles
  124.  
  125.                 (source "catalogs/nederlands")
  126.                 (dest   "golded:catalogs/nederlands" )
  127.                 (all)
  128.             )
  129.         )
  130.  
  131.         (delete "golded:.info")
  132.  
  133.         (if (exists "presets")
  134.  
  135.             (
  136.                 (set presets (askbool
  137.  
  138.                     (prompt "\nCopy new presets to GoldED's preset drawer ?")
  139.  
  140.                     (help @askbool-help)
  141.  
  142.                     (default 1)
  143.                 ))
  144.  
  145.                 (if (= presets 1) (
  146.  
  147.                     (copyfiles
  148.  
  149.                         (source "presets")
  150.                         (dest   "golded:presets")
  151.                         (all)
  152.                     )
  153.                 ))
  154.             )
  155.         )
  156.  
  157.         (complete 100)
  158.  
  159.         (message "\nInstallation complete. Have fun :-)")
  160.     )
  161.  
  162.     (message (cat "\n"
  163.  
  164.         "Please install GoldED before attempting to\n"
  165.         "install this client.                      \n"
  166.     ))
  167. )
  168.  
  169. (exit (quiet))
  170.  
  171. (welcome)
  172.